home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-18 / incremnt.zip / INCREMNT.BAT < prev    next >
DOS Batch File  |  1992-10-02  |  3KB  |  139 lines

  1. @ECHO OFF
  2. CLS
  3. IF (%1)==() GOTO DIRECT
  4. IF (%1)==(INCREMNT) GOTO NONO
  5. IF (%1)==(incremnt) GOTO NONO
  6. IF NOT EXIST %1.%2 ECHO SORRY the file %1.%2 does NOT exist in this directory.
  7. IF NOT EXIST %1.%2 GOTO END
  8. IF EXIST %1.BAT GOTO WORK
  9. ECHO @ECHO OFF >> %1.BAT
  10. ECHO INCREMNT %1 %2 >> %1.BAT
  11. :WORK
  12. IF EXIST %1.20 GOTO 20
  13. IF EXIST %1.19 GOTO 19
  14. IF EXIST %1.18 GOTO 18
  15. IF EXIST %1.17 GOTO 17
  16. IF EXIST %1.16 GOTO 16
  17. IF EXIST %1.15 GOTO 15
  18. IF EXIST %1.14 GOTO 14
  19. IF EXIST %1.13 GOTO 13
  20. IF EXIST %1.12 GOTO 12
  21. IF EXIST %1.11 GOTO 11
  22. IF EXIST %1.10 GOTO 10
  23. IF EXIST %1.09 GOTO 09
  24. IF EXIST %1.08 GOTO 08
  25. IF EXIST %1.07 GOTO 07
  26. IF EXIST %1.06 GOTO 06
  27. IF EXIST %1.05 GOTO 05
  28. IF EXIST %1.04 GOTO 04
  29. IF EXIST %1.03 GOTO 03
  30. IF EXIST %1.02 GOTO 02
  31. IF EXIST %1.01 GOTO 01
  32. ECHO PROCESSING %1.%2 INTO %1.01
  33. COPY %1.%2 %1.01
  34. GOTO END
  35. :01
  36. ECHO PROCESSING %1.%2 INTO %1.02
  37. COPY %1.%2 %1.02
  38. GOTO END
  39. :02
  40. ECHO PROCESSING %1.%2 INTO %1.03
  41. COPY %1.%2 %1.03
  42. GOTO END
  43. :03
  44. ECHO PROCESSING %1.%2 INTO %1.04
  45. COPY %1.%2 %1.04
  46. GOTO END
  47. :04
  48. ECHO PROCESSING %1.%2 INTO %1.05
  49. COPY %1.%2 %1.05
  50. GOTO END
  51. :05
  52. ECHO PROCESSING %1.%2 INTO %1.06
  53. COPY %1.%2 %1.06
  54. GOTO END
  55. :06
  56. ECHO PROCESSING %1.%2 INTO %1.07
  57. COPY %1.%2 %1.07
  58. GOTO END
  59. :07
  60. ECHO PROCESSING %1.%2 INTO %1.08
  61. COPY %1.%2 %1.08
  62. GOTO END
  63. :08
  64. ECHO PROCESSING %1.%2 INTO %1.09
  65. COPY %1.%2 %1.09
  66. GOTO END
  67. :09
  68. ECHO PROCESSING %1.%2 INTO %1.10
  69. COPY %1.%2 %1.10
  70. GOTO END
  71. :10
  72. ECHO PROCESSING %1.%2 INTO %1.11
  73. COPY %1.%2 %1.11
  74. GOTO END
  75. :11
  76. ECHO PROCESSING %1.%2 INTO %1.12
  77. COPY %1.%2 %1.12
  78. GOTO END
  79. :12
  80. ECHO PROCESSING %1.%2 INTO %1.13
  81. COPY %1.%2 %1.13
  82. GOTO END
  83. :13
  84. ECHO PROCESSING %1.%2 INTO %1.14
  85. COPY %1.%2 %1.14
  86. GOTO END
  87. :14
  88. ECHO PROCESSING %1.%2 INTO %1.15
  89. COPY %1.%2 %1.15
  90. GOTO END
  91. :15
  92. ECHO PROCESSING %1.%2 INTO %1.16
  93. COPY %1.%2 %1.16
  94. GOTO END
  95. :16
  96. ECHO PROCESSING %1.%2 INTO %1.17
  97. COPY %1.%2 %1.17
  98. GOTO END
  99. :17
  100. ECHO PROCESSING %1.%2 INTO %1.18
  101. COPY %1.%2 %1.18
  102. GOTO END
  103. :18
  104. ECHO PROCESSING %1.%2 INTO %1.19
  105. COPY %1.%2 %1.19
  106. GOTO END
  107. :19
  108. ECHO PROCESSING %1.%2 INTO %1.20
  109. COPY %1.%2 %1.20
  110. :20
  111. ECHO YOU NEED TO CHANGE THE NAME OF THE FILE YOU ARE SAVING BECAUSE YOU HAVE
  112. ECHO MADE 20 OF THEM AND THAT IS ALL THIS PROGRAM DOES. SO DELETE %1.BAT
  113. ECHO AND RENAME %1.%2  TO 1%1.%2 AND RECALL   INCREMNT %1 %2
  114. PAUSE
  115. GOTO END
  116. :DIRECT
  117. CLS
  118. ECHO SYNTAX = INCREMNT FILENAME EXT
  119. ECHO INCREMNT = FIRST NAME OF PROGRAM ( STARTS PROGRAM )
  120. ECHO FILENAME = FIRST NAME OF FILE TO INCREMENT ( and a space )
  121. ECHO EXT =  THE EXTENSION NAME OF THE FILE TO INCREMENT
  122. ECHO There must be a space between the FILENAME and the ESTension.
  123. ECHO INCREMNT.BAT makes incremented backup files of input %%1.%%2
  124. ECHO and makes a batch file in the directory of the file you are in
  125. ECHO that gives INCREMNT.BAT the filename.ext each time it is called.
  126. ECHO MEANING type on your document and to save it call increment and
  127. ECHO give it the FILENAME and EXTension.  INCREMNT.BAT increments the
  128. ECHO file and makes a batch file to make the next incrementing easier.
  129. ECHO The incremented files sit in the first part of the alphabetically
  130. ECHO organized directory and the file your are working on sits at the end.
  131. ECHO This makes it easier to find and work on.  Enjoy.
  132. ECHO  INCREMNT.BAT       By  Steve Elliott
  133. PAUSE
  134. GOTO END
  135. :NONO
  136. ECHO Please do not alter INCREMNT.BAT with it's self.
  137. PAUSE
  138. :END
  139.